home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / Wheel_33.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  1.4 KB  |  46 lines
  1. on mouseUp
  2.   global glinevar
  3.   puppetTransition(47, 1, 8)
  4.   set the puppet of sprite 10 to 0
  5.   if glinevar <> -1 then
  6.     if glinevar < 1 then
  7.       alert("You need to select a wheel model first")
  8.       abort()
  9.     end if
  10.     if word 4 of line glinevar of field "mainwheel" contains "None" then
  11.       abort()
  12.     end if
  13.     if word 4 of line glinevar of field "mainwheel" contains "Plain" then
  14.       abort()
  15.     end if
  16.     if word 4 of line glinevar of field "mainwheel" contains "Less" then
  17.       abort()
  18.     end if
  19.     if word 4 of line glinevar of field "mainwheel" contains "Sleeve" then
  20.       abort()
  21.     end if
  22.     if word 4 of line glinevar of field "mainwheel" contains "Radial" then
  23.       abort()
  24.     end if
  25.     if word 4 of line glinevar of field "mainwheel" contains "Delrin" then
  26.       put "Delrin Bearing" into field "f_desfind"
  27.       put "2" into field "f_serfind"
  28.     end if
  29.     if word 4 of line glinevar of field "mainwheel" contains "Ball" then
  30.       put "Ball Bearing" into field "f_desfind"
  31.       put "2" into field "f_serfind"
  32.     end if
  33.     if word 4 of line glinevar of field "mainwheel" contains "Roller" then
  34.       put "Roller Bearing" into field "f_desfind"
  35.       put "3" into field "f_serfind"
  36.     end if
  37.     if word 4 of line glinevar of field "mainwheel" contains "P.Ball" then
  38.       put "Precision Bearing" into field "f_desfind"
  39.       put "4" into field "f_serfind"
  40.     end if
  41.   end if
  42.   WHEELDESFIND()
  43.   play frame "descriptions"
  44.   updateStage()
  45. end
  46.